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DOC Bitte "Routines to Ob ta Dara, f fron NETACP* 
006 MODULE EVLSHOW CIDENT = 104 
0003 1 BEGIN 
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— 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS Pye sued UNDER A LICENSE AND MAY BE USED AND corres 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH tat AND WITH THE 
Hd hte OF 4 oe A gdh ad NOTICE. THIS SF FTWARE OR ANY OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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e J INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie CORPORATION. 
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i FACILITY: DECnet Event Logging (EVL) 
: ABSTRACT: 
: This module contains routines and data to obtain information 
from the network. 
: ENVIRONMENT: VAX/VMS Operating System 
: AUTHOR: Darrell Duffy ,. CREATION DATE: 7-July-1980 
: MODIFIED BY: 
44 ! vo01 TMHOO01 Tim Halvorsen 02-Jun-1982 
, § Convert to use new format NETACP control Q10 interface. 
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N 7 
Roy ines to Obtain Data from NETACP 16-Sep-1984 01:35:29 VAX-11 Bliss-32 V4.0-74 Pa 
204 att 94:33:83 NE EKSUMGMASTERSCEVL SRCTEVLSHOW.83251 ad (28 
ZSBTTL ‘Definitions’ 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
EV VLSOBTAINNETCHAN : NOVALUE, 
EVLSNETSHO 
EVL tS INITLOCALNODE : NOVALUE 


INCLUDE FILES: 


ARY ‘SYSSLIBRARY: a ! VMS common definitions 
LIBRAR ! BLISS definitions 
ARY ‘SHREIBSS NET‘; ! Network ACP interface 


RAE WO CONAN EU OON 


LIBRAR 

LIBRARY ‘LIBS:EV 
LIBRAR 

' 

i 

i 


OWN STORAGE: 


33883 =i: 


20 000 


and n 
Length mot data in bytes 


EVL$GB_LOCALNODE : BYTE 


— — — — a ad at — 4 — 4) — 3 4) 4 — 2 2d tb 2 9 td 8 a a tt — —— 


007 GLOB. 
Ors EVLSGW_NETSHOCHAN : WORD ! Channel to network for show 
7% : 
75 ! 
0077 : EXTERNAL REFERENCES: 
078 F 
007 EXTERNAL LITERAL ! Error codes 
39 EVLS_NETASN, ' Netdevice could not be assigned 
; EVLS_ ~ACPSHO ! Error from ACP show function 
4 , 
084 SxTERNAL 
085 EVLS$GT_LOCALNODE, ! Sutter tor local node address 
00. $ 
0088 


EVLS Routines to Obtain Data from NETACP 6-5e Sep-1 VAX-11 Bliss-32_V 

FO 2000 EVLSOBTAINNCTCHAN Obtain a Channel to NET : ~300 138% 9}: 33 3 DISKSVMSMASTER: tty fi" OSC SEVLSHOW.B32;1°" 31 e 3 

; 1 ZSBTiL ‘EVLSOBTAINNETCHAN Obtain a Channel to NET’ : 
2 GLOBAL ROUTINE EVLSOBTAINNETCHAN (CHANADR) :NOVALUE = ° 
: 11444 3 
36 ? : FUNCTIONAL DESCRIPTION: : 
; 8 11 Obtain a channel to the network. Probably for control qio ‘ 
H 38 $ 1: functions. This r “ine performs the error signalling ; 
3 1 2 : } in case something is wrong with the network. : 
: i 038 | FORMAL PARAMETERS: ; 
; } g , ! : CHANADR Address of a word to return channel ‘ 
48 198 1 | IMPLICIT INPUTS: : 
: 196 1 1! ; 
; 10 105 1! NONE 3 
; 108 1 1! : 
3 109 1 1 ! IMPLICIT OUTPUTS: H 
: 110 108 1! 

3 6111 109 1! NONE 

s ig 110 1! 

3 F 111. 1 =! ROUTINE VALUE: 

3 (116 112 1 ! COMPLETION CODES: 

3 115 115 1! 

3 118 1144 1! NONE 

>. oe 116 7! 

; 118 11 1 ! SIDE EFFECTS: 

3: «6119 117 1! 

; 120 118 14 NONE 

3s 121 119 1! 

J 0120 1 !-- 

: } 4 + > 3 BEGIN 

> 125 0138 

es $ 124 LOCAL 

HY ; : 5 STATUS 

: 158 159 : 

3; 7 128 F NOT 

3 1 1 4 ; ; ( status = SASSIGN ! Obtain the channel 

i 13 P 0131 CHAN = .CHANADR, 

eS P Q1 § DEVNAM = —88 * NET: ° 

3 : 5 : 4 : ) 

4 135 THEN 

3 ' 3 ‘ SIGNAL_STOP (EVL$_NETASN, 0, .STATUS) ! Signal any error loudly 

: 140 1 

3 «(161 1 3 END; 


-TITLE EVLSHOW Routines to Obtain Data from NETACP 
-IDENT \v04-000\ 


-PSECT SPLITS,NOWRT,NOEXE ,2 


vOG=000 


: Routine Size: 


X-11 Bliss-32 V4.0-7 
SKSVMSMASTER: cvi sre EVLSHOW.B32; 79 


to Obtain Data from NETACP 68 —81n 9}: 33: $3 


VA 
HAN Obtain a Channel to NET 14-Sep-1 I 


00 00 00 3A 54 45 4E_ SF P.AAB: .ASCII 33* :\<0><0><0> 
8668 09 P.AAA: 38. ALi: 
0 — C «ADDR 
«PSECT — 


00000 EVL$GW_NETSHOCHAN: : 
-BLKB 


K 2 
~EXTRN EVLS$_NETASN, EVLS$_ACPSHO 
~EXTRN EVLSGT_LOCALNODE 
»EXTRN EVL$GB_LOCALNODE 
-EXTRN SYSSASSI 


-PSECT SCODES,NOWRT,2 


0090 00000 .ENTRY EVLSOBTAINNETCHAN, Save nothing 
7E 7C 00002 cLRQ 0 = (SP) 
04 AC DD 00004 PUSHL  CHANADR 
0000" CF 9F 9007 PUSHAB P.AAA 
— ER tas EMIS Ei fyseagsto 
§ DD 0001 PUSHL STATUS. 
E D4 1 CLRL. =(SP 
000000006 8F DD 00019 PUSHL uEVLS NETASN 
000000006 00 03 FB Ooi CALLS #3, LIB$STOP 
04 00026 1$: RET 


39 bytes, Routine Base: S$CODE$S + 0000 


4 
(3) 


8 

EVLS Routines to Obtain Data from NETACP 1b-Sep- 4 9 VAX-11 Oi lees 32 V 5 

50% 2000 EVLSNE TSHOW Perform a Net Show Q10 1a-Sep- 1984 9}: 33; § DISKSVMSMASTER: ertvi sReSevisHow.B32;1°" 31 (4) 

: 143 140 1 ZSBTTL tei Lays Perform a Net Show Q10' : 
> 146 141 1 GLOBAL ROUTINE EVLSNETSHOW (DATABASE SEARCHID, SEARCHVAL, : 
3 145 142 1 CONTEXT, FIELDS, FIELDSADR, ATNBFR, RTNLEN) = ; 
: 403 Vee | tee 
; 148 145 | | FUNCTIONAL DESCRIPTION: 3 
; 150 103 1} Perform a net show qio function. The nfb and related structures ; 
3 39) 133 14 are built from the parameter List of the routine and the return : 
3 : § 132 ! Length and buffer are returned in the specified areas. : 
3 134 131} | FORMAL PARAMETERS: 3 
; 1 $ 1 § 1/ DATABASE NFBSC_OB_LNI, OBI “4 CRI, PLI, EVI... : 
J. 154 1! SEARCHID Field id of search k : 
7% : 155 1! SEARCHVAL Address of search hoe ‘ 
11 1 — —14 CONTEXT Address of context — (NFBSC_CTX_SIZE bytes) : 
: 160 1 1! updated fo, he cucreay gett ies On exit : 
: 161 1 8 1} FIELDS Number 0 elds in fields list ‘ 
5 166 189 1! FIELDSADR Address of list of fields. id's ° 
3s 160 1! RTNBFR Address of descriptor of buffer ; 
3 8 19 : : RTNLEN (Optional) Address of longword to return bytes in buffer ‘ 
; 166 168 { IMPLICIT INPUTS: ; 
; 138 19? ! : EVLSGW_NETSHOCHAN Channel to use to perform function : 
; 170 167 t ROUTINE VALUE: : 
; 17¢ 189 1 Status of SS$_NORMAL or SS$_ENDOFFILE : 
: lhe Wyo 3 
; 125 17¢ 3 BEGIN ; 
: iF 174 2 BUILTIN : 
3 178 1% NULLPARAME TER; ! True if parameter unspecified : 
: 1 17 : 
3 «6181 178 SEARCHID: BBLOCK ! Get at subfields of longword : 
3 ' ; FIELDSADR: REF VECTOR; ! Vector of field ids : 
7 1 LITERAL ; 
3 ' 5 : MAXFIELDS = 20; ! Max number of field ids : 
3. 1 LOCAL : 
3 1 185 ! Network Function Block ‘ 
31 "BBLOCK CNFBSC LENGTH + MAXFIELDS*42, : 
3; 1 1 NFBDSC: VECTOR ' Descriptor of same : 
; 191 1 KEY: VECTOR é. BYTE), i Key block : 
3 135 1 KEYDSC: VECTOR + and its “desc criptor : 
3; 1 or WORD ' Return Length | of buffer : 
; 19% 1 10S6 BBLOCK Crosesc. size), i Iosb for use here : 
: 195 1 § PTR REF OR, ! Pointer fo, sone thing 3 
; 136 1 NUMFIELDS, ' Number of fields : 
3 8 STATUS; ! Status return : 
; 199 1 CHSFILL(O, NFBSC_LENGTH, NFB); ! Pre-zero NFB fields : 


eee ee ee ee Eee os 


vOc=000 


Rout i to Obtain Data from NETA 
EVLENE SHOW Perform a Net Show afo 


FCT) = NEBSC_FC SHOW; 


NFB NFB 
“DATABASE = -DATABASE; 


1 
; NFB LNFB 


PTR 
Ne eit iack KEY) = .SEARCHID; 
EARCHUAL NEQ 


tay: »SEARCHVAL) <0, 16> 
ARCHVAL, .PTR); 


wr 3-8 
mom 
mz < 


END; 
IF .CONTEXT NEQ 0 
PTR = CHSMOVE ( 
-(. CONTEXT) <0, 16> + 2, 
a “CONTEXT, .PTRS 
NFB CNFBSV_NOCTX) = TRUE; 


KEYDSC tH} ey; - KEY; 
ae 


— — — — — — — — — 


MEN ⏑ ⏑ — 


PIPIPIPOPURD <8 ot ot 2 = ot 2 


MEUN OO WN “OO OOVNOUE WO 


NUMFIELDS = MIN | AXFIELDS, FIELDS); 
PTR = NFB CNFBSL_FLDID 
INCRU I FROM sft NUMF IELDS-1 


PTR C.1) = .FIELDSADR C.1); 


NFBDSC 
STATUS = $0]0W( 


p 
EFN = EVLSC_SYNCH_EFN 

40 Pp CHAN = .EVLSGW NE TSHO 
41 P : FUNC = 10$_ACPCONTROL, 
4 P 10SB = 10S6, 
4 Pp 49 Pl = NFBDSC, 
44 P 024 PG = KEYDSC 
45 P 4g PS = RTNLENGTH, 

4 43 P&4 = .RINBFR); 
4 43 IF .STATUS 

0 4 STATUS = .10SB CI0SB$W_STS); 

6 IF NOT .STATUS 


AND .STATUS NEQ SSS_ENDOFF ILE 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Fs Ge Ge Fe Se Se Ge Se Ge Fe Se Se Ge Se Ge SH Se SH Se Ge Se FH Se FFs Se Se Se Ge Se SOSH Se Oe Ge SH Se Se ee 


uns 

VII 

Wwr—o 
— 


ibe 


N 
SIGNAL_STOP (EVLS_ACPSHO, 0, .STATUS); 


16-Sep-1 
~ep-1 


EC 
a «SEARCHID CNFBSV_TYP) wy hatte TYP 


VAX-11 Bliss-32 


9B 12:38:80 


! Build function code 
! and parameter code of nfb 


Build the key block 
first 


' 
i Search ke 
i If there is one 


! Move it in 


ve 
STR ! Special case the string 


! Copy the data 


! If there is a context area, 
! Copy it as before 


! If not, indicate no context 
! Build the key descriptor 
! If updsting current position, 


KEYDSC (OJ = MAXU(.KEYDSC CO], 4+NFBSC_CTX_SIZE); ! Make at least this big 


! Adjust number of fields 
! Set pointer into NFB 
i Copy the field id's 


NFBDSC £0} = ———⸗ + 4*.NUMFIELDS; ! Build NFB descriptor 
s é 


! Perform the qio 


! Obtain the worst status 


! Check it out 


! Report the error 


4.0-7 


DISKSVMSMASTER:CEVL. sae EVLSHOW.832; 39 
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EVLENE T SHOW Perform a Net Show 10 137808-1382 94:33:88 DISKSVMSMASTER: CEVL.SRC EVLSHOW.B32:1-—— (4) 


3 ¢ fr gConrent NEQ 0 ! If current position updated, 
§ CHSMOVE(.(KEY+4) <0,16> + 2, KEY+4, .CONTEXT); ! Copy it back to context area 
Fr et NULLPARAMETER (9) If caller wants buffer size, 
6 eRTNLEN = .RTNLENGTH; Return the Length 
5 § RETURN .STATUS; and the status 
END; 


oa 


.EXTRN SYS$Q10W 

.ENTRY E  $NET SHOW Save R2,R3,R4,R5,R6,R7_RB 
MOV “3 (SP), SP 

movcS #0, (SP). #0, #16, NFB 


MOVB #34, NFB 197 
04 MOVB DATABASE, NFB+2 198 
3 AE vas KEY4#4, PTR 00 
0 AC VL  SEARCHID, NFB+4 01 
t AC ROVE ARCHVAL, R1 0202 
00 CRPZV #0, #2, SEARCHID+2, #2 0206 
MOVZWL (R1), RO 0207 
ADDL2 2. RO 
BRB 2 
MOVL 


#4, RO 
moves —* (R1), (PTR) 


10 MOVL NTEXT, R7 
CLRL ng 


=—BDBOOMOUMNFODO-"OOnvNe 


oo 
m 
o 
r 
y 
on 
Sete Se Se Se Se See Se Se Ge Se See Se Se Se Se Ge Ge Se Ge Se Ge Ge Ge Se Ge Fe Se Ge Be Se Se Ge Ge Ge Be Se Ge Se 


p+ dete + det Ad ohh + eee eBay 4 TO 9N9 “OW m9 9 
SOS 
> 
2 
2 
- 
win 


L 
10 MOVZWL (R7), RO 0215 
3. 0 
VCS RO. (R7), (PTR) 16 
10 BRB 14 
4 if BISB2 #4, NFB+1 18 
146 =A é ROVAR KEY R 2 
5 SUBL3 RO, PTR, KEYDSC 
4 «OA MOVAB KEY, KEYDSC+4 1 
5 BLBC—_—«&RB,, 2 
0c ar MOVL =s«K Wose RO 4 
CMPL) 0. #68 
E BGEGU 
44 BF OA MOV ZBL #68, RO 
0 MOVL R KEYDSC 
46 «OA MOVL sé ELD R 0226 
CMPL 6 #20 
BLEG Ss 8 
MOVL #20, RO 


80 MOVAB NFB+16, PTR 


2 
So 


v06=000 EULENE SHOU Pe — — ise Spr13ke 93:38:80 DTSKSVNGMASTERSCEUC SRCSEVvLsHoW.B32:1°%° caf 


3; Routine Size: 285 bytes, Routine Base: S$CODE$ + 0027 


52 Ao 9 MOVAB =1(RO), R2 : : 

ot) —5 : $8] 

6341 18 BC 1p 9$: MOV 9F 1ELDSADRCIJ, (PTRICII ; : 

52 09F 108: CML R2 ; : 

Ff LEQU : ‘ 

98 AD 50 p HL #2, NUMFIELDS, NFBDSC : 0232 : 
98 AD ADDL2 #16, NFBDSC ; : 

C AD AO AD : VAB NFB, NFBDSC+4 ; 0233 F 

7E CLRQ = = (SP) > 024 3 

1¢ X ODD PUSHL RTNBFR : ; 

o¢ AE OF PUSHAB RTNLENGTH : ; 

¢ AE 9F OOOBA PUSHAB KEYDSC : ; 

98 AD 9F 000B PUSHAB NFBDSC : ; 

7E 7C 000C CLRQ = =(SP) : ; 

24 AF 9F 000C PUSHAB 1088 : ; 

3 po t PUSHL #56 : ; 

7E 0000" CF 3c 000¢ MOVZWL EVL$GW.NETSHOCHAN, -(SP) : ; 

1 dD 000CC PUSKL #1 : : 

000000006 ¢ F cE CALLS #12, SYS$Q10W ; ; 
5 D D MOVL 0, STATUS : ; 

6 3 D8 BLBC STATUS, 11$ : 0 45 : 

6 04 AF ¢ ODB MOVZWL 1088. iig⸗ + 0247 ; 

1A 2 E8 O00DF BLBS TAT igs + 0249 ; 

00000870 =F 6 by 13} 118: CMPL STATUS #2160 : 0250 : 
111 OE BEQL 128 : ; 

36 DD 000EB PUSHL STATUS : 0252 ; 

E D4 OED CLRL : ; 

000000006 8F DD OOOEF PUSHL apis gzue 

000000006 00 : FB F5 CALLS : : 
: FC 12$:  BLBC : 0 54 ; 

18 «OA FF MOVZWL Hi * : 0256 ; 

67 18 Ae g ; 196 nove J KEY+4, (R7) ; : 
0 6¢ 108 13$: CMPB (AP), #9 : 0258 : 

9 1F 001 BLSSU 153 : 3 

24 «AC ; 1 TST 36 (AP) : ; 

04 1 BEQL 14$ : : 

20 5 gf 5 11 MOVZWL RTNLENGTH, @RTNLEN 3; 0 69 3 

6 p 119 148:  MOVL STATUS, RO : 026 : 

4 0011C RET + 0264 3 


a, = 


voL=000 


peek: 


EVLEINITLOCACNGDE Obtain Local Node Address an iSoseo 1944 9:38:83 ScSumGhaSTeRscevi she SevisHow.e32;1°%" (55 


ESEELL wcGPORE"ERESTADTEDEAL SBOE Tabet” Address and Mame 
R DESCRIPTION: 

Obtain the local nodes address and name and format in DNA form. 
FORMAL PARAMETERS: 

i NONE 

3 IMPLICIT OUTPUTS: 

EVLSGT_LOCALNODE 

ROUTINE VALUE: 

ah NONE 


BEGIN 
LOCAL 


DPTR 
RETDSC : VECTOR oR £23 ! Return buffer descriptor 
RETBFR : VECTOR é; BYTE]; ' Return buffer 


RETDSC = 16; ! Setup return descriptor 
RETDSC £9} RETBFR; * 


EVLSNETSHOW( ! Obtain the data 
NFB Bsc C_DB_L 
NFBSC “BECbCARD, 0, 


ee ert. (NFBSC_LNI_ADD, NFBSC_LNI_NAM), 


ARAVI SSSI 


at a dt tt ee 


DPTR ~ ey $GT_LO ALOE ! Set pointers 

DPTR ove RETBFR, .OPTR); / Address ver two bytes 

CH CHSRCHAR(RETBFR+4) ,DPTR);: ! opy t unt 

DPTR = HAR ACHE COMSRCHARCRETBEROG). RE TBF 6, *OPIR) : ! ae name 
EVLSGB_LOCALNODE = .DPTR = EVLSGT_LOCALNODE; ! Set coun 


-PSECT SPLITS,NOWRT NOEXE ,2 
01020041 01010010 00010 P.AAC: .LONG 16842768, 16908353 


-PSECT SCODES,NOWRT,2 
003¢ 00000 -ENTRY EVLSINITLOCALNODE, Save R2,R3,R4,R5 


Se 


Bo Se Be Se Se Se Se Se Se Se Ge Ge Se Se Se Se Ge Se Se Se ee Bete Se Ge Se Ge Fe Ge Ge Se Fe Se See Se Se Se Se Se Se Ge Ge Ge Se SF Se ee Se Se Se Se Se Geese Seas 


es 


voL=000 ROVER SEARORE” BEELER ASSe aaarens on HEASESIOES SHE 2d — SRCSEVLSHOW.832;1°°" (3S 


: Routine Size: 66 bytes, Routine Base: SCODES + 0144 


5 18 «OC SUBL2 : : 

19 A 1 ROVL RET pst 3 0293 : 

1 VAB i DSC+4 > 029% : 

10, PUSHAB ; 3 

F 4 PUSHAB 4 

BD Bor PUSHL Hy ; 0296 3 

$1 BS Rk : : 

FEC2 42 CALL Ay EVLSNETSHOW : ; 

CF 9E 000 MOVAB —EVLSGT_LOCALNODE, DPTR : 0303 3 

6E f MOVW © RETBFR’ (DPTR) : ; 

AE 90 004 Move, RETBERS Ré4, (DPTR* i 0305 3 

| 63 06 A 85 38 MOVES RO, RET BFRee, (DPTR) ; ; 
3 —33 vᷣc (SGT LOCALNODE, RO : 0307 ; 

00006 CF 0 see » DPTR, “VLSCB, LOCALNODE ⸗ 


- s- E 
$02 2000 EULEINITLOCALRODE ety pA Node Address an rise $8: 138¢ 93: 33: $3 —BX — eRccE Vi SRCSEVLSHOW. 832;1 heo⸗ (b) * 


IIiz min— 'End of module 


-EXTRN LIBSSTOP 


; PSECT SUMMARY 

; Name Bytes Attributes 

: SGLOBALS 2 NOVEC, WRT, RD -MOEXE.NOSHR, LCL. REL. CON,NOPIC.ALIGN(2) 
; SPLITS NOVEC-NOWRT, RD 2NO ENE ’ND LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES NOVEC,NOWRT, RD, EX NOSHR: LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
— — Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


TES = EOS 


3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EVLSHOW/OBJ=OBJ$:EVLSHOW MSRC$:EVLSHOW/UPDATE=(ENHS:EVLSHOW) 
: Size + 26 data bytes 
Run Time 
lapsed T 
Lines/CPU at 


58 
r "M65" pages 


; Lexemes/CPU-M 
| Eonotlotion. 
3; Compication “Complete 


NT CORPORATION 
D PROPRIETARY 


D= 
iS a IT) 


* 


015 AH-BT1i3A-SE DIGI 
VAX/VMS V4.0 CONF 


